home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / M2IUpd76.lha / M2IUPD5_76 / UpDateM2I < prev   
Encoding:
Text File  |  1998-03-24  |  2.5 KB  |  145 lines
  1. ; M2I 5.76 Installer Script (Update)
  2. ; $VER: 5.76 (24-Mar-97)
  3. ; Written by Thomas PIMMEL
  4.  
  5. (set #welcome-message
  6. (cat    "\nM2I 5.76 (c) Thomas PIMMEL 1991-1998\n"
  7.     "Update 5.73/5.75b -> 5.76"))
  8.  
  9. (set @default-dest "SYS:")
  10.  
  11.  
  12. (if (= @language "français")
  13.  (
  14.     (set #wrongversion
  15.     (cat    "Vous utilisez une vieille version du programme 'Installer'"
  16.         "\n\n Ce script a besoin de l'Installer 42.9 (minimum),\n\n"
  17.         "disponible sur Aminet (ftp.wustl.edu)"))
  18.  
  19.     (set #selectdir "\nChoisissez l'endroit où se trouve l'ancienne version de l'exécutable")
  20.  
  21.     (set #notfound "\nM2I5 non trouvé")
  22.  
  23.  )
  24.  
  25.  (
  26.     (set #wrongversion
  27.     (cat    "Your 'Installer' version on your amiga is too old!\n\nYou need "
  28.         "at least 'Installer' V42.9, available on Aminet (ftp.wustl.edu)"))
  29.  
  30.     (set #selectdir "\nChoose the directory of the executable old version")
  31.  
  32.     (set #notfound "\nM2I5 not found")
  33.  
  34.  )
  35. )
  36.  
  37.  
  38. ; ------------------------------------
  39. ; Check Installer & Kickstart Version
  40. ; ------------------------------------
  41.  
  42. (if (< @installer-version 2752521)
  43.   (
  44.     (message #wrongversion (all))
  45.     (exit (quiet))
  46.   )
  47. )
  48.  
  49. ; ------------------------------
  50. ; Where?
  51. ; ------------------------------
  52. (set destdir
  53.     (askdir
  54.     (prompt #selectdir)
  55.     (help @askdir-help)
  56.     (disk)
  57.     (default @default-dest)
  58.     )
  59. )
  60.  
  61. (set @default-dest destdir)
  62.  
  63. ; ------------------------------
  64. ; Verify
  65. ; ------------------------------
  66.  
  67. (if (not (exists (tackon destdir "M2I5") (NOREQ)))
  68.   (
  69.     (message #notfound (all))
  70.     (exit (quiet))
  71.   )
  72. )
  73.  
  74. ; ------------------------------
  75. ; Programms
  76. ; ------------------------------
  77.  
  78. (if    (OR (= (database "cpu") "68000")
  79.     (= (database "cpu") "68010"))
  80.  
  81. ;======== Copy 68000 Version
  82.     (
  83.         (copyfiles
  84.             (source "bin/M2I5_000")
  85.             (dest destdir)
  86.             (newname "M2I5")
  87.             (optional "force")
  88.  
  89.         )
  90.     )
  91. ;======== Copy 68020 Version
  92.     (
  93.         (copyfiles
  94.             (source "bin/M2I5_020")
  95.             (dest destdir)
  96.             (newname "M2I5")
  97.             (optional "force")
  98.         )
  99.     )
  100. )
  101.  
  102. ;======== M2IDefTexts
  103.  
  104. (copyfiles
  105.     (source "Prefs/M2IDefTexts")
  106.     (dest (tackon destdir "Prefs"))
  107.     (optional "force")
  108. )
  109.  
  110. ; ------------------------------
  111. ; Documentation
  112. ; ------------------------------
  113. (if (= @language "français")
  114.  (
  115.     (set guidepat ".fr.guide")
  116.  )
  117.  (
  118.     (set guidepat ".eng.guide")
  119.  )
  120. )     
  121.  
  122.  
  123. (if (exists (tackon destdir "Guides") (NOREQ))
  124.     (copyfiles
  125.         (source "Guides")
  126.         (dest (tackon destdir "Guides"))
  127.         (pattern (cat "#?" guidepat))
  128.     )
  129. )
  130.  
  131.  
  132. ; ------------------------------
  133. ; Catalogs
  134. ; ------------------------------
  135.  
  136. (if (exists (tackon destdir "Catalogs")(NOREQ))
  137.     (copyfiles
  138.         (source "Catalogs")
  139.         (dest (tackon destdir "Catalogs"))
  140.         (all)
  141.     )
  142. )
  143.  
  144.  
  145.